home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / bbs / Hydra11s.lha / HBBS / Source / Oberon / R.mod < prev    next >
Text File  |  1996-07-02  |  246b  |  16 lines
  1. MODULE R;
  2.  
  3. CONST
  4.  
  5.   D0*=0;  D1*=1;  D2*=2;  D3*=3;
  6.   D4*=4;  D5*=5;  D6*=6;  D7*=7;
  7.  
  8.   A0*=8;  A1*=9;  A2*=10;  A3*=11;
  9.   A4*=12;  A5*=13;  A6*=14;  A7*=15;
  10.  
  11.  FP0*=16; FP1*=17; FP2*=18; FP3*=19;
  12.  FP4*=20; FP5*=21; FP6*=22; FP7*=23;
  13.  
  14. BEGIN
  15. END R.
  16.